home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / tag_tool.zip / TAGLINES.PRG < prev   
Text File  |  1992-10-12  |  306b  |  18 lines
  1. CLEAR
  2. USE DUPES INDEX DUPES
  3. GO TOP
  4. STORE 0 TO CNT
  5. STORE DUPES TO X_NAME
  6. SKIP
  7. DO WHILE .NOT. EOF()
  8.     IF DUPES = X_NAME
  9.         @ 15, 15 SAY X_NAME + "   " + DUPES
  10.         DELE
  11.     ENDIF
  12.     CNT = CNT + 1
  13.     @ 10, 30 SAY CNT  PICT "999,999"
  14.     STORE DUPES TO X_NAME
  15.     SKIP
  16. ENDDO
  17. PACK
  18.